home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / 05- pst company (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  132 lines
  1. 1 gosub2000:poke648,4:poke53272,21
  2. 2 t(0)=20
  3. 3 t(1)=30
  4. 4 t(2)=40
  5. 5 fori=0to24:poke54272+i,0:next:poke54296,15
  6. 7 fori=0to2:poke54278+7*i,14*16+15:poke54272+7*i,t(i):poke54273+7*i,t(i)
  7. 8 poke54276+7*i,33:next
  8. 9 fori=0to2:poke54276+7*i,32:next
  9. 10 poke53281,13:poke53280,13:poke53272,25
  10. 20 print"[147]        t[212]i[201]m[205]e[197]  t[212]o[207]  s[211]e[197]n[206]d[196]"
  11. 21 print"          g[199]r[210]e[197]e[197]t[212]i[201]n[206]g[199]s[211]"
  12. 22 fori=1to2500:next
  13. 24 print"     i[201]n[206]  a[193]l[204]p[208]h[200]a[193]b[194]e[197]t[212]i[201]c[195]a[193]l[204]"
  14. 25 print"               o[207]r[210]d[196]e[197]r[210]"
  15. 26 fori=1to2500:next:print"[147]";:poke53281,3:poke53280,3
  16. 100 reada$:ifa$="***"then200
  17. 110 printspc(20-len(a$)/2)a$
  18. 120 goto100
  19. 200 print"[145][159]load"chr$(34)"06*"chr$(34)",8:"
  20. 210 print"run: [153]a[193]n[206]d[196]  t[212]h[200]e[197]  r[210]e[197]s[211]t[212].[174].[174].[174][159][145][145][145][145][145][145][145][145]"
  21. 220 poke198,2:poke631,13:poke632,13
  22. 900 end
  23. 1000 data "a[193]b[194]o[207]m[205]i[201]n[206]a[193]t[212]i[201]o[207]n[206]"
  24. 1003 data "a[193]c[195]t[212]i[201]v[214]e[197]"
  25. 1004 data "a[193]l[204]b[194]i[201]o[207]n[206]  c[195]r[210]e[197]w[215]"
  26. 1005 data "a[193]l[204]p[208]h[200]a[193]  f[198]l[204]i[201]g[199]h[200]t[212]"
  27. 1008 data "a[193]n[206]t[212]i[201]c[195]"
  28. 1010 data "a[193]t[212]l[204]a[193]n[206]t[212]i[201]s[211]"
  29. 1012 data "b[194]e[197]y[217]o[207]n[206]d[196]  f[198]o[207]r[210]c[195]e[197]"
  30. 1015 data "b[194]y[217]t[212]e[197]r[210]a[193]p[208]e[197]r[210]s[211]"
  31. 1018 data "c[195]r[210]e[197]s[211]t[212]"
  32. 1020 data "e[197]x[216]t[212]e[197]n[206]d[196]"
  33. 1030 data "f[198]4[180]c[195]g[199]"
  34. 1040 data "l[204]e[197]p[208]s[211]i[201]  d[196]e[197]v[214]e[197]l[204]o[207]p[208]m[205]e[197]n[206]t[212]s[211]"
  35. 1080 data "o[207]r[210]i[201]g[199]o[207]"
  36. 1090 data "o[207]x[216]y[217]r[210]o[207]n[206]"
  37. 1095 data "p[208]a[193]l[204]a[193]c[195]e[197]"
  38. 1100 data "p[208]a[193]n[206]i[201]c[195]"
  39. 1120 data "s[211]m[205]a[193]s[211]h[200]  d[196]e[197]s[211]i[201]g[199]n[206]s[211]"
  40. 1150 data "t[212]h[200]e[197]  s[211]h[200]a[193]r[210]k[203]s[211]"
  41. 1200 data "t[212]o[207]p[208]a[193]z[218]"
  42. 1500 data "***"
  43. 2000 poke53281,0:poke53280,0
  44. 2010 print"[147]      still something to come...?":gosub2020:gosub2100
  45. 2015 print"[147]            c64 rulez!!!!!!":gosub2020:goto8000
  46. 2020 fori=1to500:next
  47. 2030 fori=0to255:poke53280,i:next
  48. 2035 fori=0to20:print"[155]spammer";
  49. 2036 printmid$("[184][182]i[200][210][146][171][209]m[208][186][162][181][172][165][146] [185]g[213][198][200][200][190][165][146][161][184][165]",rnd(0)*15+1,rnd(0)*15+1);
  50. 2037 printmid$("[184][182]i[200][210][146][171][209]m[208][186][162][181][172][165][146] [185]g[213][198][200][200][190][165][146][161][184][165]",rnd(0)*15+1,rnd(0)*15+1);
  51. 2038 printmid$("[184][182]i[200][210][146][171][209]m[208][186][162][181][172][165][146] [185]g[213][198][200][200][190][165][146][161][184][165]",rnd(0)*15+1,rnd(0)*15+1);
  52. 2039 printmid$("[184][182]i[200][210][171][209][146][208][186][213][162][181][172][165][146][213][198][200][200][202][190][188][165][161][184][165][187][182][181]",rnd(0)*15+1,rnd(0)*15+1):next
  53. 2040 poke53281,0:poke53280,0
  54. 2050 return
  55. 2100 poke648,48:print"[147]";:gosub3000
  56. 2105 poke648,52:print"[147]";:gosub4000
  57. 2110 poke648,56:print"[147]";:gosub5000
  58. 2115 poke648,60:print"[147]";:gosub6000
  59. 2120 poke648,4:print"[147]";
  60. 2200 goto7000
  61. 2999 end
  62. 3000 print""
  63. 3100 printspc(7)"        [169]  [223] [169] [223]"
  64. 3110 printspc(7)"  [146][169][223]  [169][223]   "
  65. 3120 printspc(7)"              "
  66. 3130 printspc(7)"         "
  67. 3140 printspc(7)"         "
  68. 3150 printspc(7)"           "
  69. 3160 printspc(7)"          "
  70. 3170 printspc(7)"          "
  71. 3180 printspc(7)"   [223][169]        "
  72. 3190 printspc(7)"     [146][223]  [146][169]    [146][223] [146][169]"
  73. 3999 return
  74. 4000 print""
  75. 4100 printspc(7)"   [223][169]   [223][169]   [223] [169]   [223]"
  76. 4110 printspc(7)" [146][223] [223] [146][169][223]  [146][169][223]   [146][169][223] "
  77. 4120 printspc(7)" [146][223]     "
  78. 4130 printspc(7)" [169][146][169]   [223]  "
  79. 4140 printspc(7)"      [146][223]   [223]  "
  80. 4150 printspc(7)" [146][223] [223]     [146][223]   "
  81. 4160 printspc(7)" [146][223]      "
  82. 4170 printspc(7)"       "
  83. 4180 printspc(7)" [169]    [223][169]   [223][169] "
  84. 4190 printspc(7)"    [146][169]  [146][223]   [146][169] [146][223]   [146][169]"
  85. 4999 return
  86. 5000 print""
  87. 5100 printspc(7)"   [223]      [223][169] [169]   [223]"
  88. 5110 printspc(7)" [146][223][223]  [146][223] [146][169]  [146][169][223] "
  89. 5120 printspc(7)"        "
  90. 5130 printspc(7)"        "
  91. 5140 printspc(7)"           "
  92. 5150 printspc(7)"        "
  93. 5160 printspc(7)"       "
  94. 5170 printspc(7)"       "
  95. 5180 printspc(7)" [169][146][169]    [223][169] "
  96. 5190 printspc(7)"   [146][169]       [146][223]   [146][169]"
  97. 5999 return
  98. 6000 print""
  99. 6080 printspc(7)"[169][146][169]"
  100. 6090 printspc(7)"[169][146][169]"
  101. 6100 printspc(7)"[169] [146][169]"
  102. 6110 printspc(7)"[169] [146][169][169]     [223]"
  103. 6120 printspc(7)"[169]  [146][169][169] [146][169] [146][223] [223]"
  104. 6130 printspc(7)"[169]  [146][169] [146][169] [146][223] "
  105. 6140 printspc(7)"[169]  [146][169]   "
  106. 6150 printspc(7)"[169]            [146][169] [169] [223] "
  107. 6160 printspc(7)"[169]  [146][169] [169][146][169] [146][223][223] "
  108. 6170 printspc(7)"[169]  [146][169] [169][146][169] [146][223][223] "
  109. 6180 printspc(7)"[169] [146][169]     "
  110. 6190 printspc(7)"[169] [146][169][223] [223] [169] [146][169]"
  111. 6200 printspc(7)"[169][146][169][223]     [146][169]"
  112. 6210 printspc(7)"[169][146][169]"
  113. 6999 return
  114. 7000 a(0)=197:a(1)=213:a(2)=229:a(3)=245
  115. 7002 fori=0to10:b(i)=int(rnd(0)*7.9)+200:next
  116. 7005 fori=0to24:poke54272+i,0:next:poke54296,15
  117. 7010 poke54278,14*16+9:poke54275,8
  118. 7020 poke54278+7,14*16+10:poke54273+7,20
  119. 7050 i=0
  120. 7100 poke54276,65
  121. 7190 poke53272,a(iand3)
  122. 7200 forj=10to1step-2:poke54273,j:poke53270,b(j):next
  123. 7210 poke53272,a((i+1)and3)
  124. 7220 forj=10to1step-2:poke54273,j:poke53270,b(j):next
  125. 7230 poke53272,a((i+2)and3)
  126. 7240 poke54273,4:poke646,(iand3)+1:print"[147]";:forj=1to50:next
  127. 7300 i=i+3:ifi<72then7100
  128. 7400 poke53272,21:poke54276,0:poke54276+7,0
  129. 7999 return
  130. 8000 fori=1to2300:next
  131. 60000 return
  132.